home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pctrlx.arc / PCTRLX.MRG < prev   
Text File  |  1986-04-25  |  2KB  |  18 lines
  1. 25 'PCTRLX.MRG -- Alters Snd/Rcv XMODEM proto in PC-TALK3 to provide improved operation on networks such as CIS. Merge with PC-TALK3 Level 830424 or one that has been Merged with PCT365,366 or 3661. See PCTRLX.DOC. By Jim Gainsley CIS 76703,1007
  2. 121 RLX!=72:U$="##.##"
  3. 3575 IF LEFT$(Q$,1)="X" THEN IF EX=19 THEN RC$="X" ELSE IF EX=20 THEN TR$="X
  4. 3577 TS!=0:T!=0:T=0:TB!=0:TT!=0:RLX!=72:IF LEN(Q$)>1 AND RC$="X" THEN RLX!=VAL(      RIGHT$(Q$,LEN(Q$)-1))*18.5:IF RLX!<37 THEN RLX!=37 ELSE IF RLX!>1295 THEN       RLX!=1295 ELSE 3578 ELSE 3580
  5. 3578 IF RLX!<>72 THEN PRINT "Timing=";RLX!/18.5;" Sec
  6. 4615 PRINT#1,NAK$;:ECNT=ECNT+1:T=0:IF ECNT<12 THEN 4625 ELSE 4645
  7. 4620 PRINT"Received Block #";BLK;:SEC=255 AND (SEC+1):PUT#2,BLK:BLK=BLK+1:           PRINT#1,ACK$;:PRINT"- verified  ";:ECNT=0:IF T=0 THEN T=1
  8. 4622 T!=T/18.5:TS!=TS!+T!:TB!=TS!/BLK:T=0:PRINT"Time= ";USING U$;T!;:PRINT           " Sec   Avg= ";USING U$;TB!;:PRINT"   Max= ";:IF TT!<T! THEN TT!=T!
  9. 4623 PRINT USING U$;TT!
  10. 4770 IF Z$=NAK$ THEN ECNT=ECNT+1:IF ECNT>22 THEN 4860 ELSE IF NOT EOT THEN 4805      ELSE 4845
  11. 4805 ECNT=ECNT+1:IF ECNT>22 THEN 4860 ELSE PRINT:IF Z$=NAK$ THEN PRINT"**NAK Rcvd: Resndg Blk..";:PRINT#1,A$;:GOTO 4755 ELSE PRINT"***Waiting...";:GOTO 4760
  12. 4910 IF NOT EOF(1) THEN Z$=INPUT$(LOC(1),#1):RETURN ELSE SOUND 32767,1:ZA=ZA+1
  13. 4915 T=T+1:IF ZA>RLX! THEN RETURN ELSE B$=INKEY$:IF B$=CHR$(9) THEN 4916 ELSE        4910
  14. 4916 PRINT"ct=";USING U$;RLX!/18.5;:PRINT" Enter (02-70)";:B$=INPUT$(2):IF VAL       (B$)=>2 AND VAL(B$)<70 THEN RLX!=VAL(B$)*18.5:PRINT"nt="B$ ELSE PRINT"INVL: No Chg
  15. 4917 B$="":GOTO 4910
  16. 4919 '
  17. 4995 IF SECZ<19 THEN GOSUB 4985:SECZ=SECZ+1:RETURN ELSE ABORT=-1:RETURN
  18.